﻿<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
on error resume next
Set conn=CreateObject("Adodb.Connection")
conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("/qingtianwapqt3gcom/3gqingtian.mdb")
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set conn = Nothing
Response.End
End If
%>